home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
HAM_RAD
/
LOGGING
/
3090.ZIP
/
QSLCOUNT.PRG
< prev
next >
Wrap
Text File
|
1987-03-10
|
884b
|
54 lines
* QSLCOUNT.PRG
* CALLED BY HAM.CMD
* REV 07/02/83
* REV 03/08/87 FOR USE ON PC
CLEAR
SET TALK OFF
DO WHILE .T.
?
?
?
?
? '***** CONFIRMED COUNT *****'
?
?
? ' 0 - EXIT'
? ' 1 - COUNTRIES'
? ' 2 - STATES'
?
?
? ' ENTER DESIRED ACTION'
WAIT TO ACT
STORE UPPER(ACT) TO ACT
IF ACT='0'
CLEAR
RETURN
ENDIF
IF ACT='1'
CLEAR
@ 2,0 SAY '********** COUNTRIES ***********'
SET TALK ON
USE COUNTRY
@ 5,0 SAY 'SINGLE SIDE BAND'
COUNT FOR SCONFIRM
@ 10,0 SAY 'CW'
COUNT FOR CCONFIRM
WAIT
SET TALK OFF
ENDIF
IF ACT='2'
CLEAR
@ 2,0 SAY '*********** STATES *************'
SET TALK ON
USE STATE
@ 5,0 SAY 'SINGLE SIDE BAND'
COUNT FOR SCONFIRM
@ 10,0 SAY 'CW'
COUNT FOR CCONFIRM
WAIT
SET TALK OFF
ENDIF
CLEAR
RELEASE ACT
ENDDO